// RealPlay Ltd  copyrights.
// This program is Open Source AsIs
// You may use it for all purposes, including commercial
// But!!!
// If you use any part of this code, you must state clearly
// both in your source file and in the Help|about of your program,
// that the origin program or code was built by RealPlay Ltd

// ***********************************************************************/
// *                                                                     */
// *     This unit is loads help.txt for  "Paint" Program                */
// *                                                                     */
// ***********************************************************************/

unit HelpOverViewpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TFHelpOV = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FHelpOV: TFHelpOV;

implementation

{$R *.dfm}

procedure TFHelpOV.FormShow(Sender: TObject);
begin
  if fileexists('Paint QuickHelp.txt') then
    RichEdit1.Lines.LoadFromFile('Paint QuickHelp.txt');
end;

end.
